home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Office / RagTime-4-Installation / Für RagTime-2-Umsteiger / RagTime 3 Spezial / RagTime 3 Spezial.rsrc / STR#_530.txt < prev    next >
Text File  |  1996-10-23  |  4KB  |  323 lines
  1. RTSymE{/RTTimesSymbol RTTimesSymbol :me}if
  2.  
  3.  
  4. RTSymC{/RTTimesSymbol RTTimesSymbol :mc}if
  5.  
  6.  
  7. RTSymS{/RTTimesSymbol RTTimesSymbol :ff :ms :ff def}if
  8.  
  9.  
  10. RTSymO{/RTTimesSymbol RTTimesSymbol :ff :mo :ff def}if
  11.  
  12.  
  13. RTSymI{/RTTimesSymbol RTTimesSymbol :mi}if
  14.  
  15.  
  16. /RTTimesSymbol RTTimesSymbol ^0 scalefont def
  17.  
  18.  
  19. }if
  20.  
  21.  
  22. RTSym{/RTTimesSymbol RTSymbol def
  23.  
  24.  
  25. beDict begin beBN end
  26.  
  27.  
  28. beDict begin beBU end
  29.  
  30.  
  31. grestore
  32.  
  33.  
  34. beDict begin beBU end
  35. beDict begin /sCTM sCTM currentmatrix def end
  36. beDict begin beBN end
  37.  
  38.  
  39.  
  40. beDict begin sCTM setmatrix end
  41.  
  42.  
  43. setmiterlimit
  44.  
  45.  
  46. currentmiterlimit 1.41421 setmiterlimit
  47.  
  48.  
  49. /patAngle ^0 def
  50.  
  51.  
  52. {
  53. %%BeginFeature: ^0 ^1
  54. ^2
  55. %%EndFeature
  56. }stopped{
  57. %%BeginFeature: ^3 ^4
  58. ^5
  59. %%EndFeature
  60. }if
  61.  
  62.  
  63. /sFre ^0 def/sRot ^1 def sFre sRot/sFu load setscreen md begin/freq sFre def/rot sRot def end
  64.  
  65.  
  66. ^0 ^1 moveto
  67.  
  68.  
  69. 0 setgray
  70.  
  71.  
  72.  
  73. beDict begin grestore
  74.  
  75.  
  76. gsave end
  77.  
  78.  
  79. /setrgbcolor{dup 2 index eq 3 index 3 index eq and {pop pop setgray}{setrgbcolor}ifelse}bind def
  80. /sethsbcolor{sethsbcolor currentrgbcolor setrgbcolor}bind def
  81.  
  82.  
  83. /setgray{1 sub dup dup ^1 mul 1 add 3 1 roll ^0 mul 1 add 3 1 roll ^2 mul 1 add setrgbcolor}bind def
  84.  
  85.  
  86. {pop 1}settransfer
  87.  
  88.  
  89. %%BeginFeature: ^0 ^1
  90. ^2
  91. %%EndFeature
  92.  
  93.  
  94. /sethsbcolor beDict begin /oHsB load end def
  95. /setrgbcolor beDict begin /oRgB load end def
  96. /setgray beDict begin /oSg load end def
  97.  
  98.  
  99.  
  100.  
  101.  
  102. cleartomark restore beDict begin
  103.  
  104.  
  105. end save mark/showpage{}def
  106.  
  107.  
  108.  
  109. cleartomark beDict begin pictres end
  110.  
  111.  
  112. beDict begin beBU end beDict begin pictsave end beDict begin beBN end mark
  113.  
  114.  
  115.  
  116. md/oldsettransfer known {oldsettransfer} {settransfer} ifelse setscreen
  117.  
  118.  
  119. currentscreen currenttransfer
  120.  
  121.  
  122. ^0 ^1 ^2 setscreen
  123.  
  124.  
  125. {exch pop abs 1 exch sub}
  126.  
  127. {dup mul exch dup mul add 1 exch sub}
  128.  
  129. ^0 ^1 spsp
  130.  
  131.  
  132. ^0 ^1 spp
  133.  
  134.  
  135. newpath
  136.  
  137.  
  138. %%BeginPaperSize: variable
  139. statusdict/setpage known{statusdict begin ^0 ^1 ^3 setpage end}
  140. {statusdict/setpageparams known{statusdict begin ^0 ^1 0 ^3 setpageparams end}if}ifelse
  141. %%EndPaperSize
  142.  
  143.  
  144. %%BeginPaperSize: variable
  145. statusdict/setpageparams known{statusdict begin ^0 ^1 ^2 ^3 setpageparams end}if
  146. %%EndPaperSize
  147.  
  148.  
  149. 1 setlinecap
  150.  
  151.  
  152. setlinecap
  153.  
  154.  
  155. currentlinecap
  156.  
  157.  
  158. grestore newpath
  159.  
  160.  
  161. gsave
  162.  
  163.  
  164. eoclip
  165.  
  166.  
  167. ^0 ^1 translate
  168.  
  169.  
  170. ^0
  171.  
  172. /w ^0 def /h ^1 def /b ^2 def /ps ^3 string def
  173.  
  174.  
  175. ^2 ^3 neg scale w h b [w 0 0 h neg 0 h] {currentfile ps ^0 pop} ^1
  176.  
  177.  
  178. image
  179.  
  180. false 3 colorimage
  181.  
  182. {^1 mul ^0 add} settransfer
  183.  
  184.  
  185. ^0 ^1 ^2 ^3 ^4 ^5 setCTM
  186.  
  187.  
  188. ] ^0 setdash
  189.  
  190.  
  191. ^0 
  192.  
  193. [
  194.  
  195. %%BeginFeature: ^0 ^1
  196. bu beDict begin ppdok{^2}if end bn
  197. %%EndFeature
  198.  
  199.  
  200. beDict begin beBU end
  201. beDict begin sFre sRot/sFu load setscreen end
  202. beDict begin beBN end
  203.  
  204.  
  205. beDict begin beBU end/styy load md/oldsettransfer known {oldsettransfer} {settransfer} ifelse
  206. beDict begin beBN end
  207.  
  208.  
  209. beDict begin beBU end/styy currenttransfer def{pop ^0}bind settransfer
  210. beDict begin beBN end
  211.  
  212.  
  213. closepath
  214.  
  215.  
  216. ^0 ^1 roc exch lineto
  217.  
  218.  
  219. ^0 ^1 roc exch moveto
  220.  
  221.  
  222. save ^0 ^1 ^2 ^3 ^4 ^5 ^6 ^7<^8>pstroke restore
  223.  
  224.  
  225. ^0 ^1 moveto ^2 ^3 ^4(^5)rtShow
  226.  
  227.  
  228. setfont}if
  229.  
  230.  
  231. sts RTSym or {
  232. sts {currentfont md begin SwToSym end}if
  233. RTSym{currentfont RTTimesSymbol setfont}if
  234.  
  235.  
  236. ^0 ^1 sfp
  237.  
  238.  
  239. ^0 ^1 ^2 ^3 ^4 ^5 ^6 ^7 ^8 lp
  240.  
  241.  
  242. eoclip newpath
  243.  
  244.  
  245. initclip eoclip newpath
  246.  
  247.  
  248. ^0 ^1 ^2 setrgbcolor
  249.  
  250.  
  251. ^0 ^1 ^2 ^3 ^4 ^5 ^6 ^7 ^8
  252.  
  253.  
  254. ^0 ^1 ^2 ^3 ^4 ^5 ^6 ^7<^8>pfill
  255.  
  256.  
  257. fill
  258.  
  259.  
  260. stroke
  261.  
  262.  
  263. ^4 ^5 ^7 ^0 ^1 ^2 ^3 parcp
  264.  
  265.  
  266. ^4 ^5 ^0 ^1 ^2 ^3 farcp
  267.  
  268.  
  269. ^4 ^5 ^7 ^0 ^1 ^6 ^2 ^3 sarcp
  270.  
  271.  
  272. ^0 ^1 ^2 ^3 povp
  273.  
  274.  
  275. ^0 ^1 ^2 ^3 fovp
  276.  
  277.  
  278. ^0 ^1 ^4 ^2 ^3 sovp
  279.  
  280.  
  281. ^4 ^0 ^1 ^2 ^3 prrp
  282.  
  283.  
  284. ^4 ^0 ^1 ^2 ^3 frrp
  285.  
  286.  
  287. ^4 ^0 ^1 ^5 ^2 ^3 srrp
  288.  
  289.  
  290. ^0 ^1 ^2 ^3 prp
  291.  
  292.  
  293. ^0 ^1 ^2 ^3 frp
  294.  
  295.  
  296. ^0 ^1 ^4 ^2 ^3 srp
  297.  
  298.  
  299. ^0 setgray
  300.  
  301.  
  302. ^0 slw
  303.  
  304.  
  305. ^0 setlinejoin
  306.  
  307.  
  308. ^0 setlinecap
  309.  
  310.  
  311. ^0 ^1 scale
  312.  
  313.  
  314. end
  315.  
  316.  
  317. beDict begin sFre sRot/sFu load setscreen newpath
  318.  
  319.  
  320. beDict begin newpath
  321.  
  322.  
  323.